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MODULE rundet Cor a one gagte? Process == CLI Utility Procedure’ 


MAIN = My detached) = 
BEGIN 


*TrosenaN ee palette = orem ee 

'e 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie tet EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

'@ ALL RIGHTS RESERVED 
TH 


® 
* 
® 
ie 
: ae 
.* e 
ie s € IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY ORDANCE WITH THE TERMS OF SUCH LICEN NSE AND WITH THE ®@ 
ie INCL THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
ie COP] HER Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. . 
ie THE INFORMATION IN THIS SOFTWARE i$ SUBJECT TO CHANGE WITHOUT NOTICE * 
if AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. ‘ 
ie DIGITAL ASSUMES NO RESPONSIBI * 
is SOFTWARE ON EQUIPMENT WHICH I . 
i 

Sobers oii aust 
‘ 


ot a 


MEUN §O OODNAVNESWN QOD DNAUE WN (OOO NOUS WN 


, ir Ay WE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


em ec me ee cee me ee ee ee ce ce me me me me ee ee me me ce ee ee me me ee ee ee ae ee ee ed ed ed ed ed 


ies 
Facility: 
CLI Utility 
; Abstract: 
‘ This module contains the routines geceseary to act as a CLI interface 
4 to the create process (SCREPRC) and schedule wakeup (SSCHDWK) system 
ib } services. 
$ ! Environment: 
43 VAX/VMS User Mode, Non-Privileged 
45 Author: 
rt 4 Michael T. Rhodes, Creation Date: March, 1983 
49 Modified By: 
3 ! v03-007 MCNO159 Maria del C. Nasr 28-Mar-1984 
§ : Use LIBSTPARSE to parse uic instead of RUN_CVTUIC. 
4 : v03-006 RASO274 Rare! 
5 ‘ Make this work with Searent ists by eotee” at FIND” FILE 
$ : to parse the image filespec. Wildcards are not allowed. 
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ives ty , . 16-Fep-1944 ig CLIUTL.SRCIRUNDET B32; ath dl 
3 28 2 1! v03-005 rexoost Todd ate stoy=t9G3 3 
3 1! Add He ’ qualifier /J08. “ThBL QUOTA. The =e ° 
; 60 1! qualifier allows the creator” of a detached process to 
$ o : : specify its job-wide logical name table creation quota. 

; 8 : 1 i v03-004 MTROOO2 Michael T. Rhodes 22-Jul-1983 

3 $¢ ¢ } : Correct qualifier name /PROCESS to /PROCESS NAME. 

: 66 066 1 i v03-003 MTROOOT Michael T. Rhodes 29-Apr=1983 

a Gr 1! Convert peryilege processing to use common CLI utility 
3 os 0069 ; routine PRVSSETPRI Also change PID message to PROC_ID. 
; 0 H 1! v03-002 wMC0002 Wayne Cardoza 14-Apr-1983 

$ 4! Bert ; : Qualifier is /DETACHED 

7, bo78 1! v03-001 wMc0001 Verne Cardoza 11-Apr-1983 

3 74 Bore 1! Add /DETACH and /DUMP flags. 

. 75 1! 

: 76 0076 1 !-- 

: 7 0077 1 


: 
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ee ee a a a ak et ee a ad a ad ad od od od od od od DD 
FUN “OC OCBVNOUES WN $$ O CONOULSWN—OV0OO~ 


ons 


} SSBTTL "Declarations' 


Table 
ORWARD 


‘ 
i 
F 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


i Include Files: 


LIBRARY ‘SYSSLIBRARY:LIB'; 
LIBRARY ‘SYSSLIBRARY:TPAMAC’; 


of Contents: 


moe agh ned 
run_detac 

init arg list 
parse_image_spec 
get_wakeup_info 
et_uic 


Set “privileges 
get_quotas 


get_stSflgs 
schedule_process 


External references: 
EXTERNAL ROUTINE 


CLISGET VALUE : 
CLISPRESENT 2 
LibScvt_dtime  : 
LIBSCVT_DX_DX: 
LibScvt_time : 
LIBSGET VM : 
LIBSFIND FILE: 
LIBSTPARSE : 
prv$setpriv : 


Define message codes... 
$SHR_MSGDEF (RUN. 192 


d VIC. 
' Illegal CPU time Limit. 


: AX=11 Bliss-32 v4.0-74 | 
09 X-11 BL $3056 V4.0-7 Page ; 
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efine VMS structures. 
SPARSE structures 


Create ? sub or detached pr 
Initialize the SCREPRC and 
Obtain the expanded ooge f 
Get info for the $SCHDWK . 

Get the UIC value. 

Set up the privilege mask vector for the process. 
Set up the quota Lisi for the process. 

Special case for CP) time Limit quota. 
Get the value of the current command Line entity. 
Insert a quota List entry. 
Set up the initial process status flag vector. 
Schedule the process to be executed. 


| 
ocess. 
SSCHDWK argument Lists. 
ile specification. 


CLI call back routine to qet command Line entity. 
CLI call back routine to determine entity presence 
Private CLI routine to convert a string to a delta 
General conversion routine. 

Private CLI routine to convert a string to an abso 
Library routine to obtain virtual memory. 

Library routine to parse filespecs. 

Table driven parser 

Private CLI routine to process privileges and set 


Insufficient virtual memory. 
Invalid qualifier value. 
Error parsing file spec. 


Define the shareable messages first. 
Error parsing command entity. 


Command Line entity was explicitly negated. 
Freste process failed. 

Identification of created process. 

Error obtaining job and process information. 
icrer converting entity value. 

nva 


Failed to schedule the wakeup request. 
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AX-11 Bliss-32 V4.0-74 
CLIUTL.SRCJRUNDET .B32; (3). 


Page 5 


H 138 oi } SSBTTL ‘Declarations -- Private Storage’ 

3 re i 8 ; : Command qualifiers, keywords, and keyword paths 

; 106 0146 1 BIND 
3 «(14 141 «1 accounting = $descriptor ("ACCOUNTING'), ! Log accounting records for created process 
> 1446 Bits 1 authorize = $descriptor ("AUTHORIZE'), ! Perform user authorization when image is L| 
3 «(145 0145 1 delay = $descriptor ("DELAY") ! Hibernate process and awaken after delta t 
; 108 Biée 1 detach = Sdescriptor ("DETACHED’), ! Detached process 
3; 14 145 1 dump = $descriptor ('DUMP') ! Image duap requessed 
: 148 0146 1 error = $descriptor ("ERROR'S, i Error device (SYSSERROR?. | 
; 149 Bie 1 input = $descriptor ("INPUT"), ! Input device (SYSSINPUT). 
; 150 146 1 interval = Sdescriptor (‘INTERVAL’), ! Hibernate process and awaken at regylerty | 
: 13 0149 1 mailbox = $descriptor (‘MAILBOX'), ! Unit number of termination mailbox for thi. 
co 7 ¢ oiey 1 output = $descriptor (‘OUTPUT’), ! Output device (SYS$OUTPUT). 

mer 151 1 pi = $descriptor ('P1') ! Image file specification parameter. | 
3; «615846 8126 1 priority = $descriptor C*PRIORITY®) , ! Base priority at which the created process 
s 199 0153 1 privileges = Sdescriptor ("PRIVILEGES ), ! Defines the privileges for the created pro. 
; 156 0154 1 process = $Sdescriptor (‘PROCESS NAME’) ! Specifies the process name. 
.. war 0155 1 resource_wait = S$descriptor (‘RESOURCE WAIT'S, ! Enable/disables resource wait mode for the. 
s 158 0156 1 schedule = $descriptor ('SCHEDULE”) : Hibernate the process and awaken at absolu | 
; 159 0157 1 service_fail = S$descriptor (‘SERVICE FAILURE") ! Enable/disable system service failure exce. 
; 160 0158 1 swapping = $descriptor (‘SWAPPING’), ! Enable/disable process swapping. 
3; 6161 0159 1 vic = $descriptor (‘UIC'); ! Detached process UIC. 
; Mb 0160 1 
; 16 0161 1 LITERAL 
> 164 3166 1 true = 1, false = 0, ! Boolean ope nds. 
3 «6965 01635 1 pientries = : Number of entries in the SGETJPI item List| 
: 166 0164 1 pilistsize = jpientries * 12, ! Number of bytes required for the SGETJPI i. 
3 er 0165 1 ist_k_entry_size = 5, ! Number of bytes in a List ery. | 
; 1e8 8198 : priv_entries = 31; ! Number of real privileges (prvSv_xxx). | 
3; 170 0168 1 MACRO ! Macro to create List entries for the quota) 
ore 0169 1 List_entry (name, entity) = BYTE (name), LONG (S$descriptor (entity)) %, 
3; We 0170 1 List_b_name = 0,0,8,0 ! Name field access formal. 
: 128 gi7t 4 listziZvalue = 1,0,32,0 &; i Value field access formal. | 
s 175 $173 1 OWN 
3 1% 0174 #1 run$a_error : $Sbblock Cdsc$c_s_bln], ! Descriptor for error device specification. | 
- tr 0175 1 run$a_ image : Sbblock Cdsc$c_s_bin], ! Descriptor for image file specification. | 
: 178 0176 1 run$a_input : Sbblock Cdsc$c_s_bin], ; poser teter for input device specification. | 
; 179 0177 +1 run$a_input_desc: $bblock Cdsc$c_s_bin], ! General purpose dynamic input descriptor. | 
; 180 0178 #1 run$a_outpu : $Sbblock Edsc$c_s_bin], ' Descriptor for output device specification 
3: «6181 at44 4 run$a_prcnam : Sbblock Cdsc$c_s_bin], ; poser toter for process name. 

3 ig 180 1 run$a_quota ! Quota list head address. 

: 18 181 1 run$\"baspri, i Base execution priority for the process. 

3: «184 136 1 run$l_mbxunt, ! Termination mailbox unit number. 

: 185 183 1 run$l_pid, ' Created process’ PID. 

: 186 184 1 run$l_status, ' Global Status vector. 

3; «4187 185 1 run$l_stsfilg : Sbblock (4), ! Initial process state status flags. 
: 188 136 1 run$l_uic, ' Detached process’ UIC. | 
3; «189 187 1 runsa_¢e tim : VECTOR (2, LONG) INITIAL (-1,-1), ! Time at which the process is to be awakene 
; 190 138 1 run$q_interval : VECTOR C2, LONG) INITIAL (0,6), ' Interval at which the wake up request is t 
; «6191 189 1 run$q_prvadr : VECTOR C2, LONG], : prays ope vector. , | 
3 ise 190 1 run$a_image_buf : Sbblock [nam$c_maxrss], ' Buffer to hold the expanded file specifica 
: 13? B19 : run$a_findfile : ref $bblock, ! Context ptr for LIBSFIND_FILE. 
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193 1 BSBTTL "Data Structures -- SGETJPI Item List’ 


a 


de 

3 138 1 1 

3 138 195 1! 

™ 13 : : Functional Description: 

: 1 198 1 i This structure is used to obtain default job and process information 

: : 306 : : for the created process. 

3 204 1 1 ie 

; 205 § : run$a_getjpi : Popieck Fipilistsize) ! Item List for $GETJPI. 
; $9 1 WORD (4, jpi$_prib), LONG (run$l_baspri, 9}. 1 Process base ar teeter. 
3 > om WORD (8, pi _procpriv), LONG (run$q_prvadr, 0), ! Process ‘SAME’ privileges. 
; ' WORD (0, 0), LONG (0, 0)T, ! Item List terminator. 


—_ 
oO 
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BSBTTL *Data Structures -- Quota Table’ 
i 


Functional Description: 

i This structure is used to gorse and process the command Line entries 

‘ which comprise the quota List values and to establish the initial quota 
: context for the SCREPRC system service. 


run$a_quota_tbl 
INITIAL ( 


: Sbblock C(pql$_length - 1) * List_k_entry_size] 


"AST LIMIT’) 


Quota table. 


IAIAPOPOPINIPONINUNUNIND 


rorornrornrrerer 
VO OSBUSM FI HOD NOP OOO NOM Rote 


H 1 

: 1 

; 1 

; 1) Be 

: § 1 

; 1 

: 4 1 

; 5 1 

3 8 1 

3 1 

; 8 1 

: 6 | 

; 1 1 List-entry (pql$-bytim, "BUFFER_LIMIT") i Maximum number of bytes fo) 
: j 1 Listzentry (pql$-enqim, "ENQUEUE LIMIT'S, i Maximum # of outstanding | 
3 1 list_entry (pql$_wsextent, "EXTENT'Y ! Max size to which an i 
; 8 4 1 List_entry (pql$_fillm, ‘TILE Lami’) ! Maximum number of simultan. 
; ; 3 List_entry (pql$_biolm, *10_BOFFERED'S, ! Max number of concurrent b 
3 8 $ 1 lList_entry (pql$_diolm, O DIRECT’), ! Maximum number of concurre 
: 1 List_entry (oql $_wsquota, *MARIMUM_WORKING_SET"), ' Max size which process can| 
; 0228 1 List_entry (pql$_pgflquota, ‘PAGE FICE’), ! Max number of pages alloca 
3 0229 1 List_entry (pql$_tqelm, "QUEUE LIMIT’), ! Maximum number of timer qu’ 
3 0230 1 List_entry (pql$_prclm, *SUBPROCESS LIMIT"), ! Max number of subprocesses 
3 0231 1 List_entry (pql$_cpulm, "TIME LIMIT®) ! Maximum CPU time allocated 
; Ose¢ 1 List_entry (pql$_wsdefault, ‘WORKING SET'S ! Default working set size f| 
; 9 1 List-entry (pql$_jtquota, "JOB_TABLE_Quofa') i Job-wide logical name tabl | 
; 0235 1 . | 
3 0 3 : TPARSE state table to parse the uic value 

; . 

; rk 0239 1 SINIT_STATE ( uic states, uic_keys ); 

: 246 8 40 1 

; 245 P 0241 1 S$STATE (, 

; 26 P 0. ¢g 1 (tpa$_ident,,,,run$l_uic) 
: 26 0245 1 ); 
3: 248 gees 1 
; 249 P 0245 1 $STATE (, 
; 250 Fe Bee 1 (tpa$_eos, tpa$_exit) 
3 és" 0247 1 ); 


Be Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Ge FH Oe Be Ge Se Se Se Se Se Se Ge Se Se Se Ge Os Ge Ge Se Se Ge Se Se Se Se Se Se Ge Se Ge Fe Se Se Se Se eees 
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13 , 
ched proces 14-Sep-1 
ZSBTTL ‘run_detached -- Create a sub or detached proc 
OUT INE run detached : NOVALUE = : 

i Functional Description: 
This routine is responsidle for calling the initi 
which w tt build the argument Lists used for per 
process (SC 
to be awakened or re-executed at specific 
to pertorm that action. 
Implicit Inputs: 
The command Line supplied by the CLI. 
Implicit Outputs: 


The process is created with the process identific 


Routine Value: 
SS$_NORMAL Process was created/scheduled 
false Error status from failed routi 
Side Effects: 


ith het eh et eet oe sl 
+ 


= 

BEGIN 

init_arg_list ©; 

IF NOT (run$l_status = SCREPRC (PIDADR = run$l_pid, 
IMAGE = 


PRCNAM 
BASPRI = .run$T_baspr 
UIC = uic, 


-run$l_mbxun 
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ess’ 


alization procedure 


forming the create 
REPRC) system service. If the Grececs, Se to a7 8 “yoy 
ntervals, aca $ made 


ation (PID) of the 


treated process SIGNALLed to the caller as a success status message. 


without errors. 
ne. 


The process may have been hibernated with a scheduled wake up pending. 


' Process ID of created process. 

! File specification of the image to execute. 
! Input device specification Soss tqnee to SYSSINPUT) 
' Output device specification (assigned 

! Error device gpect Pree ten (assigned to SYSSERROR) 
! Quadword privilege vector address 

i List head address for the quota List. 

' Process name. 

! Process base execution priority. 

' Process e 

' Termination mailbox unit number. 


MBXUNT : 
STSFLG = .run$l“stsflgs)! Initial process state status flags. 


THEN 
g. cg OP (run$_creprc, 0, .run$l_status) 
SIGNAL (run$_proc_id, 1, .run$l_pid); 


F_ .run$i_stsflg Cprc$v_hiber] 
HEN schedule_process (); 


END; ! of ROUTINE run_detached 


Any errors, stop here and inform the user. 


Process was created successfully, show it’s PID to 


Should we leave a wake up call? 


Initialize the argument Lists for the SCREPRC and 


} 


to SYSSOUTPU | 
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run detached -- Create a sub or detached proces 1 met 1 99: 83: 92 


-TITLE RUNDET ne Boteched Process -- CLI Utility Proc 
PY u 
LIDENT \v06-000\ 
-PSECT _LIGSSTATES,NOWRT, SHR, PIC,1 
00000 UIC_STATES:: 
45SEC 00000 ; TPASTYPE 
.2: 17900 : 
00000000 00002 ; TPASADDR 
i. <<RUNSL_UIC-U.3>-4> : 
15F7 00006 ; TPASTYPE 
0.4: <WORD 5623 F 
FFFF 00008 ; TPASTARGET 
U.5: ~ WORD -1 : 
-PSECT _LIBSKEYOS,NOWRT, SHR, PIC,1 
00000 UIC_KEYS:: 
BLKB OO 
00000 ; TPASKEYO 
U.1: BLK 0 
-PSECT $PLITS,NOWRT,NOEXE,2 
47 GE 469 54 GE 55 4F 43 43 41 90000 P.AAB: ASCII YACCOUNTING\ : 
0000000 Soooe P.AAA: "TON 6 10 : 
00900000" 90010 “ADDRESS P.AAB ; 
45 SA 469 52 GF 48 54 55 41 0014 P.AAD: -ASCII YAUTHORIZE\ F 
00000009 00020 P.AAC: .LONG 9 : 
00000000" 00024 “ADDRESS P.AAD F 
59 41 4C 45 44 00 8 P.AAF : ASCII DELAY\ ; 
00000005 00030 P.AAE: .LONG ; 
0009000 * 000 “ADDRESS P ; 
44 45 48 43 41 54 45 & 00 P.AAH: .ASCII \DETACHED\ : 
90000008 40 P.AAG: .LONG : 
0000000 00044 “ADDRESS P.AAH ; 
50 4D 3 44 48 P.AAJ: ASCII  \DUMP\ : 
00 0004 46 P.AAL: .LON : 
0990009 05 “ADDRESS P.AAJ ; 
52 4F 52 4 00 3 P.AAL ron \ERROR\ 3 
820008 82 P.AAK "TON NG : 
9 -ADDRESS P : 
54 55 50 wet 4 P.AAN: .ASCII \TAPUT\ ; 
0069 -BLKB 
900 06C P.AAM: .LONG : 
06000' “ADDRESS P : 
4C 41 56 52 45 54 aE 4 74 P.AAP “ASCH \TATERVALA : 
909 0008 i P.A *L : 
0000000° “ADDRESS P.AAP : 


H 1 
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voe~500 run detached -- Create a sub or detached proces 1S-Sen-1984 99: 86; 92 CLIUTL.SRC RUNDET.B30; os (6) 
58 GF 42 4C 49 41 4D 00084 P.AAR: ASCII \MAILBOX\ : | 
00 9007 P.AAQ: “LONG : 
0° A DDRES SS P.AAR 3 
54 55 50 54 4F 094 P.AAT: .A s¢ scl \OUTPUT\ 3 
00 0000 H P.AAS: “LONG : 
0 9009 * 000A A SORES $ P.AAT : 
1 AG P.AAV: ASCII \Pi\ : 
DONG -BLKB 
SSG0HE. SRE P-MAUs LBM : 
59 54 49 S52 4F 49 ; 5 0086 P.AAX: -ASCII 5 PRIOKITY\ : 
68 00 OB8 P.AAW: . 3 
0000000° aC .ADDRESS P.AA ; 
CO P.AAZ: .ASCII \PRIVILEGES\ : 
Bonar: Po 
0056 


0000 «LONG 
0000 ;ADDRESS P.AAZ 
45 40 41 GE SF 53 53 45 43 4F 00004 P.ABB: ASCII \PROCESS —NAME\ 
OO0000C QODEO P.ABA: .LONG 12 
0 os * QO0E4 »ADDRESS vagonn 
OE8 P.ABD: ASCII \RESOURCE -WAIT\ 
00 


0 
53 45 47 45 4C 49 56 49 3 
0 
54 49 41 57 SF 45 43 52 55 GF 53 4 
0 

0 


DOOF “BLKB 3 
00 00D O00F8 P.ABC: <LONG 13 ; 
0 90009" OFC “ADDRESS P.ABD : 
45 4C 55 44 45 48 onoone 106 BABE: ASCH \SCHEDULE\ 
0090000" 190  LADDRESS P.ABF : 
45 52 55 4C 49 41 46 SF 45 43 49 56 52 4 116 P.ABH: ASCII \SERVICE_FAILURE\ : 
0000000F 00120 P.ABG: <LONG 15 : 
00 900 * 00124 “ADDRESS P.ABH ; 
47 4E 49 50 50 41 128 P.ABJ: <ASCII  \SWAPPING\ F 
99 00008 00130 P.ABI: :LONG 8 ; 
00 * 001 “ADDRESS P.ABJ : 
43 4 0099 P.ABL: . scl Wwic\ : 
90000 003 0013¢ P.ABK: .LONG 3 ; 
5400990 000° 00146 “ADDRESS P.ABL : 
54 49 4D 49 GC SF 41 144 P.ABN: -ASCII \AST_LIMIT\ : 
9 136 P.ABM: .LONG 3 : 
154 “ADDRESS P.ABN : 
54 49 4D 49 4C SF 52 45 46 46 4 138 B-ABP: ASCII gle. LIMIT\ ; 
00009" 168 ° | ‘ADDRESS P.ABP : 
54 49 4D 469 4C SF 45 55 45 55 51 4E 4 16¢ P.ABR: -ASCII \ENQUEUE_LIMIT\ : 
99 0 17C P. ABQ: “PONG 3 : 
9000 * 001 ADDRESS P.ABR : 
54 4E 45 54 A P.ABT: -ASCI sci] \EXTENT\ : 
$208883 18C P.ABS: <LONG : 
1 “ADDRESS P.ABT : 
54 49 4D 49 4C SF 45 4C 4 196 P.ABV: “ASCII yFive. LIMIT\ : 
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run_detached <= Create a sub or detached proces 1 =}eo-1 98 99: 86; 90 CLIUTL. Bt t RMON T B30, ret (6) 
,, So090090 1A0 P.ABU: .LON 4 3 
* OO1A4 ADDRESS P 3 
44 65 52 45 46 46 55 42 28 ne \10 ABUFFERED\ é 


1A8 P.ABX: .ASCI 
1 LKB 


BURR. SSEE PN HERE HD 


bs 
— 
. 


54 43 45 52 49 46 af 4 i P.ABZ: :ASCIT ae ; 
20990083 1€B P.ABY: <LONG F 
000000" 001¢ “ADDRESS P.ABZ F 
47 4E 49 48 S52 4F 57 SF 4D 55 4D 49 58 41 4D 00100 P.ACB: ASCII \MAXIMUM_WORKING_SET\ : 
54 45 53 SF aes ; 
1€ -BLKB 

9 00001 1€4 P.ACA: LONG 19 
000000" 001E8 -ADDR ESS P.ACB : 
45 6C 469 466 SF 45 47 41 O1EC P.ACD: ASCII \Pace “FILE F 
Bop000e" gorFe nS Hi 8, ACD 
54 49 4D 49 4C SF 45 55 45 $9 $f 0 06 P.ACF: “ASCII NOUEUE. LIMIT\ 3 
0000 0 0¢ P.ACE: TONG 1" ; 
00 009 * 0021 [ADDRESS P.ACF : 
49 4D 469 4C SF 53 53 45 43 4F 52 50 42 § 23 00 1g P.ACH: ASCII \SUBPROCESS_LIMIT\ : 
00000010 00224 P.ACG: .LONG Al ; 
00000000° 00228 “ADDRESS P.ACH : 
54 49 4D 49 4C SF 45 4D 49 54 0 C P.ACJ: “ASCH \TiME LIMIT : 
0000000A 00238 P.ACI: LONG 3 : 
00000009" 0 ¢ “ADDRESS P.ACJ : 
54 45 53 SF 47 4E 49 4B 52 4F 5 0 46 P.ACL: “ASCII MUGRKING. SET\ : 
90000008 0 4¢ PACK “TON 6 " : 
0000000" 00 2 “ADDRESS P.ACL F 
41 54 4F SS 5S? SF 45 4C 42 41 56 SF 42 4F 4A 0 34 P.ACN: -ASCII \J08_ TABLE_QUOTA\ : 
9000000F 09 64 P.ACM 8 6 15 F 
000000° 00268 “ADDRESS P.ACN : 


ePSECT SOWNS,NOEXE,2 
00000 RUNSA_ERROR: 
00008 RUNSA_IMAGE: 
00010 RUNSA_INBUT: 
00018 RUNSA_ “aot tesee 
00020 RUNSA output: 
00028 RUNSA_PRCNAM: 
00030 RUNSA “uothe 
00034 RUNSL_BASPAL. 


- @ @ @&--oO @ oo 


Run Detached Process -- CLI Utilit 
run detached -- Create a sub or de 


00 
00000000 0000 


y crosoaere 


13 


ched proces : 30-138e 99:48: 


00038 
0003¢ 
00040 
00044 
00048 


FFFFFFFF FFFFFFFF OQ004C 
00000000 00000000 00054 


0005C 
00064 


00163 
00164 


0309 0004 00168 


S444 S166 
00000 170 
0174 


0204 0008 
00000000" 00178 
009088 o17¢ 
000 oie 
0000 001 
01 0018C 
00000000* 0018D 
08 80193 
00000000" 00192 
C 3138 
00000000" 0019 
OD 00198 
00000000" 0019¢ 
8 01A0 
00000000" 001A1 
O1A5 
00000000° BIA 
1AA 
00000000° aie 
A 1AF 
00000000" 00180 
1B4 
000000 9" 185 
1B9 
00000000° 001BA 
1BE 
00000000° ie 
00000000° 001C 
0B 001C8 


-BLKB 
RUNSL_MBXUNT : 


RUNSLPID: 
RUNSL_STATUS: 
-BLKB 
RUNSL_STSFLG: 
RUNSL _UIC: 
~BLK 
RUNSQ_DAYTIM: 


.LONG == 
RUNSQ_INTERVAL: 


oL 
RUNSQ_PRVADR: 

-BLK 
RUNSA_ IMAGE — 


-BLKB 
RUNSA_F INDF ILE: 
.BLKB 
RUNSA_GETJPI: 
“ADDRESS 
“WORD 
ADDRESS 
“LON 
“WORD 
“LON 
RUNSA_QUOTA TBL : 
- ADDRESS 
ADDRESS 
“BYTE 
ADDRESS 
“BYTE 
“ADDRESS 
“BYTE 
“ADDRESS 
-BYT 
“ADDRESS 
“ADDRESS 
-BYT 
ADDRESS 
ADDRESS 
“BYTE 
“ADDRESS 
“BYTE 
ADDRESS 
“BYTE 
“ADDRESS 
“BYTE 


99 AX-11 Blisg-32 V4.0-74 
CLIUTL.SRCJRUNDET 832; 


2 — 
. 
So 
a 
—_ 


777 
RUNSL_BASPRI 


516 
RUNSQ_PRVADR 


ss. 


— ooo _@o f£ £*£ -— @ CO 


P.ABM 
P.ABO 
lame 
ees 
P.ABU 
P. ABW 
P.ABY 
P.ACA 
P.ACC 
P.ACE 
P.ACG 
P.ACI 


— ww 
~™ 


o wo ~ 
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T Run Detached Process == CLI Utility Procedure 16-Sep-1 AX-11 Bliss-32 V4.0-74 P 
VOeeb00 run_detached <= Create a sub or detached proces 1 b-Sen-1984 99: 68: 99 CLIUTL.SRC RUNDET -B32; “4 7 
00000000° 001C¢9 eADDRESS P.ACK 3 
1CD BYTE 14 3 
000000 1CE eADDRESS P.ACM : 


RUNS_INSVIRMEM== 125 AG 
RUNS_ INVQUAVAL== 12587818 


12587 28 
58726 

P.AAA 

AUTHORIZE= P.AAC | 

DELAY= E 

DETACH= P.AAG | 

DUMP= 

ERROR= P.AAK 

INPUT= P.AAM 

INTERVAL= P.AAO 

MAILBOX= P.AAQ 

OUTPUT= P.AAS 

PRIORITY= 

PRIVILEGES= P.AAY 

PROCESS= 

RESOURCE =WAIT= P.ABC 

SCHEDU 

ath FAILS 

oer PING= 


$ 
SCVT_DX_DXx 
oy M 


~EXTRN RUNS” INVUIC, RUNS ILLVAL 
-EXTRN RUNS_ ~SCHDUK: SYSSCREPRC 


.PSECT $CODES,NOWRT.2 
0004 00000 RUN_DETACHED: 

0000" CF 9€ 90002 MOVAB RUNSL_STSFLG, R2 
FB 0000 1S 


own 
wh 


0000v 
D : C RL 
DD Ai hy RUNSL_STSFLG 


RNOOVOIWmmnomn 
WDEOOOWDNLOLS 

wv 

Cc 

mn” 

5 

>>! corr 
wv 
z 
PTETETETOCSICOOTE OCIS TEE TTT Te 


or>>>>? Pr rr ronAo 
=] o 
moO 
OOooeo 
par ere Sars 


000000006 00 CALLS Pi ee SYSSCREPRC 
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T Run Detached Process <= CLI Utility Procedure 16-Sep-1984 00:27:00 AX-11 Bliss-32 V4.0-74 P 14 
Woe e500 d rs > 4 90: 8biss f - 


run_detached -- Create a sub or detached proces 14-Sep-19 CLIUTL.SRCJRUNDET.832; : (6) 
FCO A2 D MOVL RO, RUNSL_STATUS : 
14 30 pe ti C BLBS Rp. S : 
FC A2 DD 0003F PUSHL RUNSL_STATUS 3 0297 
7E 04 00042 CLRL -(SP) 3 
00000000G 8F DD 00044 PUSHL #RUNS_CREPRC : 
000000006 00 8 2081 CALLS #3, LIBSSTOP ; 
FB Ae DD 6 2} 1$ PUSHL RUNSL PID 3 0299 
DD 44 PUSHL @# é 
000000006 8F DD 0005 PUSHL #RUNS_PROC_ID 3 
000000006 0 Pa 25 CALLS 4. LIBSSIGNAL 3 
05 6 E1 65 2$: BBC #5, RUNSL_STSFLG, 3$ 3 0301 
0000v CF 0 FB 00069 CALLS #0, SCHEDOLE_PROCESS : 0302 
04 O006E 3$: RET 3 0304 


3; Routine Size: 111 bytes, Routine Base: S$CODES + 0000 


; 310 0305 1 


} 
} 


4 13 
Detached Process -- CLI Utility Procedure 16-Sep-1984 00:27: AX-11 BLi 
-arg_list <= Initialize argument lists 12286871382 99:60:54 


un -32 V4.0-74 Page 15) 
nit : 
1 ZSBTTL ‘init arg 


s 
CLIUTL.SRCJRUNDET .B32 (7) | 


: 


: 3 hist -- Initialize argument Lists’ 

; 31 1 ROUTINE init_arg_Tist : NOVALUE = 

: 38 i” | 

; \$ 19 ! ; Functional Description: 

; 18 i 1! This routine is responsible for calling the procedures to parse | 

; 31 i} & the command Line and establish the arguments for creating and 

: . 1% ! : scheduling the requested process. | 

; ¢ 0 16 1 { Implicit Inputs: | 

; ¢ 0 18 : ; Global data for the argument Lists, command Line entities etc.. | 

; : 03 y : Implicit Outputs: 

: 8 ; ¢ 1/ The command Line has been parsed with the resultant information 

; $3 0 ,: available for calls to the create process (S$CREPRC) and the schedule 

3 3 83 : : wake up (SSCHDWK) system services. 

; $36 $1] i Side Effects: 

; 334 : 8 1: Errors encountered during initialization will be signalled by 

; $32 oe , ; the routine which detected the problem. 

; 337 0331 1 i-- 

; 338 f ¢ BEGIN 

3 oP 0 : 

3 31 Oeee : Initialize the various descriptors. 

: £¢ D238 CHSFILL (0, dsc$c_s_bln, run$a_image); ! Image file specification descriptor. 

; 34 033 CHSFILL (0, dsc$c_s_bln, run$a_input); ! Input device specification descriptor. 

; 344 0338 CHSFILL (0, dsc$c_s_bln, run$a_input_desc); ! Initialize the dynamic input descriptor. 

> 345 tte4 CHSF I » dsc$c_s_bln, run$a_output); ! Output device specification descriptor. 

| HE SRS ERBFILE (8: SSeSE-S=Bn- anda orcas | Broteeg'nane descedptorso” “Tm Por 

; 8 $346 run$a_input Cdsc$B class) = dsc$k class_d; i Input device. : 

3 9 0 run$a_output ds¢56_class) = dsc$k_class_d; ' Output device. 

: 350 0344 run$a_error Cdsc$b_Class) = dsc$k_Class_d; ' Error device. 

3 39) 0345 run$a_prcnam Cdsc$B_class) = dsc$k_class_d; ! Process name. 

3 25 Bee run$a_input_desc bdsc$b_dtype = dsc$k_dtype_t: ! General purpose input descriptor (type req for con 

3 2 tot 4 run$a_input_desc (Cdsc$b_class] = dsc$k_class_d; ! General purpose input descriptor. 

: 355 B3ep IF NOT (run$l_status = et (ITMLST = run$a_ etipt)) ! Obtain the necessary job and process info. | 

3 2 $e9 THEN SIGNAC_STOP (run$_getjpi, 0. .run$l_status); ! If we encounter an error, quit. 

: 28 326 CLISGET_VALUE (input, run$a_input); ! Obtain the input device specification. 

3 35 5 CLISGET_VALUE (output, run$a_output); ! Obtain the output device specification. 

3 $2¢ CLISGET_VALUE (error, run$a_error); ! Obtain the error device specification. 

; ; 356 CLISGET"VALUE (process, run$a_prcnam); ! Obtain the process name. 

; 5 arse_image_spec (); ! Obtain the expanded image file specification. 

3 28 Set _uslue (at box, run$l_mbxunt); ' Get the mailbox ort nusber if supplied. | 

3 5 5 get_value (priority, run$l_baspri); ! Get the process base priority if su pitied. 

3 0 get_wakeup_info (); ' See if we should leave a wake up call. 

3 61 get_uic (); ! Get the user identification code (UIC). | 

3 2 get_privileges (); ! Set up the process privilege vector. 
| 


Run Detached Process -- 


LI Utility Procedure 
initlarg_list == Initialize argument lists 


1$-435-1986 00: 
12286-1382 93:8 


9 3 et_quotas (); 
Ne ; get~stsfigs (S; 
6 END; ! of ROUTINE init_arg_List 
eEXTRN 
01FC 00000 INIT ARG LIST: 
" CF QE HOVAB 
37 000006 80 SE boo8 HOVAB 
56 0000° ff 9E 0000 MOV 
08 00 6E 8 + 2c id Mmovc 
08 00 6E a 2c DootA MOVCS 
08 00 6E 08 oe 2c 009 2 MOVCS 
08 00 6E 10 0 2c 090 MOVCS 
08 00 6E 0 + 2c 898 f MOVCS 
08 00 6E 18 o9 2c 4S MOVCS 
03 A6 02 90 0003C MOVB 
rs Ag 03 90 000d, HOVE 
18 A6 02 90 900¢8 MOVB 
oh oe eee PG 
7E 04 00054 CLRL 
08 SE FE OOOSA cURa 
7E D4 0005C CLRL 
00000000G 00 of FB 4544 CALLS 
-% fH ee 
30 Aé6 OD bo0ee PUSHL 
7E D4 Boge CLRL 
00000000G 8F ODD 00071 PUSHL 
000000006 00 3 4 Bote 18: ats 
DD $0 ; PUSHL 
67 FB 000 CALLS 
18 A6 9F 0008 SHAB 
3 A8 9F 000 PUSHAB 
67 02 FB 00088 CALLS 
FO AG OF Hh PUSHAB 
FO AB 9F 00091 PUSHAB 
67 02 FB 94 CALLS 
18 Ad OF 97 PUSHAB 
74 «AB OOF 9A PUSHAB 
67 8 FB 3 9D CALLS 
0000v CF FB - CALLS 
28 Aé YF QOOA PUSHAB 


09 AX-11 Bliss-32 V4.0574 


4 CLIUTL.SRCJRUNDET .B32 


! Set up the default process quotas. 
: Set up the initial process context flags. 


SYSSGETJPI 


Save_R2,R3,R4,R5,R6,R7,RB 
i TsceT VALUE, R7 
HO Sb eed, 8, RUNSA_IMAGE 

#0, (SP), #0, #8, RUNSA_INPUT 

#0, (SP), #0, #8, RUNSA_INPUT_DESC 
#0, (SP), #0, #8, RUNSA_OUTPUT 

#0, (SP), #0, #8, RUNSA_ERROR 

#0, (SP), #0, #8, RUNSA_PRCNAM 


#2, RUNSA_INPUT+3 
#2, RUNSA 


4 A-PRCNAM+3 
26, RUNSA_INPUT_DESC+2 

(SPS 

-(SP) 

RUNSA_GETJPI 

(SP) 

(SP) 

#7, SYSSGETJPI 

RO, RUNSL_STATUS 

RUNSL_STATUS 

=(SP) 

#RUNS_GETJPI 

#5, LTBS$SToP 

R 

#2, CLISGET_VALUE 

RUNSA OUTPUT 


U 
#2, CLISGET_VALUE 
RUNSA_ERROR 
RROR 


#2, CLISGET VALUE 
RUNSA_PRCNAR 
PROCESS 

#2, CLISGET VALUE 


#0, PARSE IMAGE_SPEC 
RUNSL_MBXONT 


Page 
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<a 


; 


oO 
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T Run Detached Process -- CLI Utility Procedure 1b-5¢ -1984 00:27: AX-11 Bliss-32 V4.0-74 P 7 
voee500 init arg_list == initial ze argument Lists 1 =36071 382 99:60:54 fet iure sre RUNDET .B32; se! J 
20 ag SF OO0A8 MAILBO 3 
0000v CF 02 FB _ CALLS #2, GET_VALUE 3 
24 Ag oF B PUSHAB RUNSL_BASPRI ; 0359 
4¢ AS 9F 0008 PUSHAB PRIORITY : 
OOOV CF 8s FB 00086 CALLS #2, GET_VALUE é 
O0OvV CF FB 328 CALLS #0, GET_WAKEUP_INFO 3 9360 
O00v CF 0 FB 000C CALLS #0, GET~UIC . + 0361) 
O00v CF 0 FB OO0C CALLS #0, GET_PRIVILEGES 3 O30 
0000v CF 0 FB QOOCA CALLS #0, GET_QUOTAS : 0363) 
0000v CF 00 FB OOOCF CALLS #0, GET_STSFLGS é 0364 | 
04 00004 RET : ol 


; Routine Size: 213 bytes, Routine Base: SCODES + O06F 


s 375 0367 1 


' 
i 
' 
| 
; 
' 
| 
| 
' 
| 
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Run Detached Process -- CLI Utility Procedure 1h-Se -1984 00:27:00 AX-11 Bliss-32 V4.0-74 © 1 
parse_image_spec -- Parse image tite specificat 14-Sep-19 4 99:60:50 LCi TUTE. SREIRUNDET.B32; aa (8 


vOu~600 


3; 1 ZSBTTL. ‘parse_image_spec -- Parse image file specification’ 
; 8 e : ROUTINE porse. tnage Spec : NOVALUE = . “ 
; 378 71 1: 
: R ie : Functional Description: 
; 381 6 7% 1 This routine obtains the image file specification from the command 
3 Hf 7S 1! Line and parses it, producing a resultant file specification with 
: o7 8 78 ; : defaults applied. 
5 85 18 ; Implicit Inputs: 
; 8 80 1 i none 
: 388 81 1! 
: 34 BE : } Implicit Outputs: 
; 391 384 1: The image file has been parsed with the resultant file specification in 
; 39 0385 1! run$a_image_buf, and the appropriate fields of the descriptor run$a_image 
: ty pgee } : initialized. 
; 395 0388 i Side Effects: 
; 397 0390 1! Parse errors from RMS or errors from LIBSFIND_FILE will result 
: $05 B39) ; : with a FATAL error signalled. 
: 400 0398 | ice 
401 0394 BEGIN 
40 0395 
40 03 bind 
rts: bs default_name = uplit (%charcount('.EXE'),uplit byte (".EXE')); 
406 03 local 
407 04 status 
rts tindfilenam : ref block C .byte J: 


CLISGET_VALUE (p1, run$a_input_desc); ! Obtain the image file specification. 


run$a_image CDSC$B_CLASS] = DSC$K_CLASS_D; 
run$a_image CDSCSB_DTYPE] = DSCSK_DTYPE_T; 


: Get the next file name to search for, no wildcards permitted. 
Status = LIBSFIND_FILE( ; 

run$a_input_desc, ruri$a_image, 

run$a_findfile 

default_name, 6, 0, %REF(1)); 


: If the filename has wildcards in it it's an error 


SIBIS ARUN SOON 


RRRRRRRLLELLELE 


it (.status and sts$m_msg_no) eql shr$_nowild 
en 

run$a_findfile Cfab$l_sts] = .status; 
: Report miscellaneous errors from LIBSFIND_FILE 


Foy at at at at at ot ot at at at ah ee ee ee 


CIN ee PUN LO 
—OODNO NEW “OC OONOUEWN OO 


FUN "OC OONOUS Wh 


REPONPONGNPY OO Oo a os 


if not .status 
then 


D 14 
Run Detached Process -- CL] Utility Procedure 16-Sep-19 :27:00 AX-11 Bliss-32 V4.0-74 P 19 
parse_image_spec -- Parse Aa. tile eons +e 1 =308 1382 99:60:54 tetiure.sre RUNDET .832; rot (8) 


J 


: : $ 5 SIGNAL_STOP (run$_parsefail, 1 

: 6 runsa_input_desc, .run$a_findfile Cfab$i_stsJ], .run$a_findfile ([fab$i_stv)); 

? 5 3 findfilenam = .runSa_findfile Cfab$i_nam); 

: 2 , If an explicit version number was not specified, remove the version number. 

; 74 ¢ If wor -findfilenam Cnam$v_exp_ver] 

: “) : run$a_image (dsc$w_length] = .run$a_image [dsc$w_length] - .findfilenam ([nam$b_ver]; 
3 46 Oe END; ! of ROUTINE parse_image_spec 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


45 58 45 sf + $C P.ACP: .ASCII \.EXE\ 3 
4 $464 0 P.ACO: .LONG 4 3 
000000" 00274 «ADDRESS P.ACP 3 

DEF AULT _NAME= P.ACO 


-PSECT SCODES,NOWRT,2 
PARSE _IMAGE SPEC: 
“WORD 


Save R2 ; 0369 
52 0000° cf MOV RUNSA_FINDFILE, R2 : 
5E SUBL2 #4, SP : 
FEB = C2 PUSHAB RUNSA_INPUT_DESC 3 0403 
0000" CF PUSHAB P1 : 
00 2 CALLS a2 CLISGET_VALUE : 
FEAG C2 020€ 8F Vd #526, RUNSA~ IMAGE +2 ; 9406 
6E 1 VL 3s #1, CSP) > 041 
E PUSHL 3 
a CLRQ. = =( SP) > 0410 
0000' cf PUSHAB DEFAULT NAME : 
PUSHL R ; 
FEAG CC PUSHAB RUNSA_IMAGE ; 
FEB4 «OCC PUSHAB RUNSA INPUT_DESC ; 
000000006 CALLS #7, LIBSFIND_FILE ; 
1 0 MOVL RO STATUS : 
50 1 FFFFOOO7 8F BICL3 #65 9 STATUS, RO > 0417 
00001128 &F 9 CMPL = soRO, #4392 ; 
BNEQ 1$ 3 
50 : MOVL §§ RUNSA_FINDFILE, RO > 0419 
08 ad MOVL STATUS, gr ) 3 
1A 1 18: BLBS STATUS, 2$ ; 9423 
0 4 MOVL “FINDFILE, RO + 0426 
E 08 A vO 8(RO)7 -(SP) : 
FEB PUSHAB “ INPUT_DESC 3 0425 
PUSHL @# 3 
00€0124¢ . PUSHL  #12587596 ; 
000000006 CALLS #5, LIBSSTOP : 
6 6 28: MOVL §RUNSA_FINDFILE, RO > 0428 
28 OA MOVL 40(ROT, FINDFILENAM ; 


voa=600 


3; Routine Size: 


3 6466 


Run Detached Process -- CL 
parse_image_spec -- Parse 


3 


FEAS = C2 


137 bytes, Routine Base: 


0437 1 


utili 
mage f 


Ye 


Procedure 
specificat 1 


ifcke 35 138 9: $8: 8 


AX=11 Oi ies -32 v4.0 
CLIUTL. SRO? amok 3e0 


A (FINDFILENAM), 3$ 
3 A BA re Bur ef Inoe Itt ae a 
51 A2 33 1, MAGE 


SCODES + 0144 


F 14 
T Run Detached Process <= CLI Utility Procedure 16-Sep-1 227: AX-11 Bliss-32 v4.0-74 e 1 
yoenb00 me ny Aw == Process the $sthour time val 1 =3087 1383 99:60:96 tChiure sre RUNDET .632; a (3) 
ZSBTTL ‘get_wakeup_info <= Process the SSCHDWK time values’ 
ROUTINE get_wakeup_Tnfo : NOVALUE = 


lee 


Functional Description: 


This routine is respons tte for obtaining and converting the time values 
used to schedule wake up requests for the created process. 


Implicit Outputs: 


run$q_interval delta Reschedule the process to execute at 
this interval. 


BREE EERE EEE EE 
Pree 

DSweONeArun—o 
EESERELELELLELELS 
=o Arunaowoew 


460 ; run$q_daytim absolute or Schedule the process to execute at 

$33 27 delta this time. 

‘a7 te Side Effects: 

465 A] The time quantities are obtained as .ASCID Strings from the CLI. To 

$66 38 convert them we call the appropriate } "rere routine. Any errors 

46 5 encountered during the conversion will be signalled, and execution 

468 : of this image terminated. 

470 ine 

t3 

of7 IF gt BEET VALUE (delay, run$a_input_desc) ! Was /DELAY specified? 
$f3 4 NOT (run$l_status = LIBSCVT_DTIME (run$a_input_desc, run$q_daytim)) 

rth SIGNAL _STOP (run$_cvterr, 2, delay, run$a_input_desc, .run$l_status); 
‘x iY CLISGET VALUE (interval, run$a_input_desc) ! Was /INTERVAL specified? 


if me (run$l_status = LIBSCVT_DTIME (run$a_input_desc, run$q_interval)) 
SIGNAL _STOP (run$_cvterr, 2, interval, run$a_input_desc, .run$l_status); 
gut SET VALUE (schedule, run$a_input_desc) ! How about /SCHEDULE? 
if NOT (run$l_status = LIBSCVT_TIME (run$a_input_desc, run$q_daytim)) 
SIGNAL_STOP (run$_cvterr, 2, schedule, run$a_input_desc, .run$l_status); 
END; ! of ROUTINE get_wakeup_info 


RPP INI III at tt tt tt st ot tt tt 
ao 
os 
Pas 


Se we Fe Oe Se Ge Se Se Se Ge SHH s SH Se OH He OH Oe OH Se Oe Os Ss Os Oe Se OH Se SF Os Os OF Os Se OHSS Os Os Oe OHS SH 4 Ss ee es 
P 
oO 


SRESIS ISAS NIISSELSASER ES 


SES 
eeeeereeeererereee 


OOFC 00000 GET_WAKEUP_ INFO: 
rs WORD 


m Save R2,R3,R4,R5,R6,R7 3 
00000006 MOVAB LIBSCVT DTImE. a? ; 
sBsenese Bo BF Bae Rove BRORE CMfERS. RS 
100000006 be 3 MOVAB CLIsceT VALUE, RG : 


| 


pe 38 Run Detac Process -- CLI Utilit precedu 

get_wakeup_info == Process the SSCHDWK time 
a CF 

83808: ESE 

DD 

1) 

64 4 

1D 3 

% COA i 

dD 

67 F 

28 =A2 Dd 

3 E 

28 Ad OD 

dO 

DD 

dD 

dD 

66 FB 

) 

64 4c OA 4 

1E 5 9 

xc CUA j 

52 0D 

67 F 

28 =A2 D 

OF E 

28 Ad OD 

5 ) 

4c OU AA F 

DD 

DD 

66 4 

00p8 «=¢ +4 

Be 

3% C«AM Ff 

5 pe 

mea 3 ot 

1 E 

28 Ad OD 

5 ) 

0008 F 

dD 

dD 

66 FB 

04 


3; Routine Size: 168 bytes, Routine Base: S$CODE$ + O1CD 


: 492 0484 1 


reg, Bedeoctags 09:33:00 


AX=11 Blisg-32 V4.0-74 
CLIUTL. SRC JRUNDET .B32; 


MOVAB DELAY, R3 
MOVAB RUNSA_INPUT_DESC, R2 
PUSHL R 
aR oust, fy 
C CALL #2, $1 1S6ET VALUE 
f BLBC RO, 
PUSHAB _DAYTIM 
pus R 
CALL a IBSCVT_DTIME 
A MOVL R STATUS 
BLBS RO, 1 
PUSHL RUNSL_STATUS 
4 PUSHL R 
§ PUSHL R 
PUSHL # 
A PUSHL R 
C CALLS #5, LIBSSTOP 
F 1$: PUSHL 
1 PUSHAB JBTenva, 
4 CALLS #2, CLISGET_VALUE 
7 BLBC ° 
A PUSHAB RUNSQ_INTERVAL 
D PUSHL R 
F CALLS #2, LIBSCVT_DTIME 
MOVL RO, RUNSL_STATUS 
BLBS RO, 
PUSHL RUNSL_STATUS 
PUSHL 
PUSHAB INTERVAL 
PUSHL # 
PUSHL 
CALLS #5, LIBSSTOP 
78 28: PUSHL 
PUSHAB 5S neous 
CALLS #2, CLISGET_VALUE 
BLBC ° 
PUSHAB RUNSQ_DAYTIM 
PUSHL R 
CALLS #2, LIBSCVT_TIME 
MOVL RO, RUNSL_STATUS 
BLBS ° 
PUSHL RUNSL_STATUS 
PUSHL 
PUSHAB SCHEDULE 
PUSHL @# 
PUSHL R 
CALLS #5, LIBSSTOP 
DOOA7 3% RET 


Poe 65 


0469 


0471 


0473 


0475 


0481. 


0483 


c 
1 


35 


Be Se ee Fe Se Se Ge Se Se Se Se Se Se Ge Ge Se Se Ge Se Se Se Ge Se Se Se Sse Se Se Ge Se Ge Se Se Se Se Se Geese 
SNOOP OODNO APU OODS UR ARGOS he Sz 
RRARRANRAARRDARR DARD PRRARAL EEE EEE PEEPLES EE 
SSLESRENVLSSSLESRESLSSSESES 

PIP AWWA AIA PIPINUDINONIIY 2 at tt Ot ws 


PUPP PUP PVD AAA IIASA ASIST 
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Sycecher Process == CLI yeti tty Pre edure 16-Sep-1984 99:37:90 AX-11 Bliss-32 V4.0-74 


=-- Process the UIC, converting it to a 14-Sep-1 CLIUTL.SRCJRUNDET .832; 


ZSBTTL ‘get_uic == Process the UIC, converting it to a longword value’ 
ROUTINE oet.c ¢ : NOVALUE = ° - 


' 
' Functional Description: 


This routine is ——— for ag poten and converting a UIC string 
of the form (group, member] to a longword value. 


Implicit Inputs: 


run$a_input_desc adr Address of a general purpose dynamic 
string descriptor. 


Side Effects: 


If the UIC could not be converted, we will inform the user with 
an invalid UIC diagnostic and exit. 


= 
BEGIN 
LOCAL 
TPA_PARAM : SBBLOCK CTPASK_LENGTHO) 
INITIAL (REP TPASK_LENGTHO OF BYTE (0)); 


IF CLISGET_VALUE (uic, run$a_input_desc) ! If the user supplied a UIC 
THEN ! convert it to a longword value. 


BEGIN 

tpa_param (tpa$l_count] = tpa$k_count0; 
tpa_param toastcstringent) = .fun$a_input_desc péscéu_ length); 
tpa_param ([tpa$l_stringptr] = .run$a_input_desc dsc$a_pointer); 
If NOT LIBSTPARSE (tpa_param, uic_states, uic_keys) 


oe SIGNAL_STOP (run$_invuic, 1, run$a_input_desc); ! converting the UIC, inform the user. 


END; ! of ROUTINE get_uic 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
00# 00278 P.ACQ: .BYTE 036) 


-PSECT SCODES,NOWRT,2 


GET_UIC: WORD Save R2.R3,R4,R5S,RO 
nO RUNSA_INPUT_DESC; R6 


. SP 
moves 8 3: P.ACQ, TPA_PARAM 


uic 
CALLS #2, CLISGET_VALUE 


Page 


ab 


04-600 


3; Routine Size: 


533 


14 
Run Detached Process -- CLI Utility Procedure 1hesep-19 


get_uic -- Process the UIC, converting 


83 bytes, 


0524 1 


3 e9 %" BLB 
oral oes 
0005 ' CF OF 000 PUSHAB 
2 
seemed aes 
$ bp 00 PUSHL 
worn os RRR BE 
Oe 00089 18: Ret” 


Routine Base: 


SCODES + 0275 


t tose 10-803-1984 99 :$oise 


con Oi teens V4.0-74 
CLIUTL.SRCJRUNDET.832; 


C, TPA_PARAM+8 
C44, TPA_PARAM+12 


; 
4 


ee 


’ 
#RUNS_INVUIC 
#3, LTBSSTOP 


16 

T Run Detached Process -- CL] Utility Procedure 16-Sep-19 227: AX-11 Bliss-32 V4.0-74 P 5 
Voe 800 got.priviloses =- Obtain the process prletloees 1 300-1382 99: 6a ie CLIUTL.SRCJRUNDET 832; oe 93 
; 1 ZSBTITL ‘get_privileges -- Obtain the process privileges’ 
: ‘ ; ROUTINE ost. riv leges : NOVALUE = ’ : - 
3 1 
3 ; Functional Description: 
; 1/ This routine iteratively calls the routine CLISGET_VALUE to obtain the 
3 ,: rivileges specified oy the user. The private i routine PRVSSETPRIV 
; 1: s then called to convert the ascii str ng name into a bit number an 
3 : ; : set/clear the appropriate bit in the privilege mask. 
3 r ! ! Implicit Inputs: 
; 1: prvSa_input_desc adr Address of a general purpose deynamic 
; 54 1! string descriptor 
: 9 4 i _ prvSq_prvadr adr Address of the privilege mask quadword. 
; g ag 1 i Implicit Outputs: 
; 554 5441: The privilege vector has been established. The privileges are set/cleared 
3 339 545 1! according to whether the were explicitly specified, explicitly negated 
2 2 6 | ; or set aS a result of the ‘SAME’ privilege. 
3 28 34 ! ; Side Effects: 
; 9 229 ; The "SAME" privilege is special cased... 
; $¢ 338 1 If an invalid privilege keyword is detected we will signal a fatal error. 
i 8&2 334 1 i. 
; 565 332 BEGIN 
: 3¢f 335 5 ein 
; 368 228 same = Sdescriptor (‘SAME’):  $bblock, 
3 ; 223 nosame = $descriptor ("NOSAME'): $bblock; 
: 571 561 IF (CLISPRESENT (Sdessr ipter Pag a ag wring EQL cli$_negated) ! Default action is to use t 
3 266 THEN run$q_prvadr (1) = run$q_prvadr (0) = 0; ! privileges as the creating 
: 574 564 2 WHILE CLISGET_VALUE (privileges, run$a_input_desc) ' Preclude an invalid keywor 
; 575 565 D ' screening out the ° SAM 
s SA 266 IF CHSNEQ (.run$a_input_desc pgscSu_tength » »fun$a_input_desc pgsc$e_pointer). -Same Length], .s 
3 2 AND CHSNEQ (.run$a_input_desc [dsc$w_length), .run$a_input_desc ([dsc$a_pointer], .nosame Length], 
; 8 se If NOT prv$setpriv (run$a_input_desc, run$q_prvadr) 
; rt 259 THEN SIGNAL_STOP (run$-invquaval, 2, run$a_input_desc, privileges); 
; 3 572 1 END;  ! of ROUTINE get_privileges 


-PSECT SPLITS,NOWRT .NOEXE ,2 
$: ASCII \SAME\ 
R 4 


»LONG 
AG eADDRESS P.ACS 
AS P.ACU: .ASCIJ \NOSAME\ 


K 14 

T Run Detached Process -- CLI Utility Procedure 16-Sep-1984 00:27: AX-11 Bliss-32 v4.0-74 | 

Von b00 eot.privileses == Obtain the process artolloses 1 =3007 1383 99:85:90 CLIUTL. SRC Rome T9324 Page 498 
-BLKB é 

$9009 POACTS ADDRESS. PACU | 

45 4D 41 53 2 53 45 47 45 4C 49 56 49 Bg P.ACW: “ASEH \PRIVILEGES. SAME\ : | 

9000000 | O03C8 P.ACV: “LONG 15 : | 

0000" 002cC ADDRESS P.ACW ; 

SAME= P.ACR 

NOSAME= P.ACT | 


«PSECT S$CODES,NOWRT,2 
001C 00000 GET_PRIVILEGES: 
«WORD 


Save R2,R3,R4 3: 0526 
54 9000" CF 9€ 0000 MOVAB_ RUNSA_INPUT_DESC, R4 : 

00" CF 9F 0000 PUSHAB P.ACV + 0561 
000000006 00 1 FB 000 CALLS #1, CLISPRESENT : 
000000006 &8F 3 D 901 CPL RQ. #CLIS_NEGATED : 

44 Ae 7C 00018 CLRQ § RUNSQ_PRVADR + 0562 

54 DD Oo1F 1$: PUSHL R4 > 0564 
0000" CF 9F 000 PUSHAB PRIVILEGES : 
000000006 00 08 FB 0024 CALLS #2, CLISGET_VALUE ; 
40 : 0028 BLEC. —._ «RO, F 

0000" CF 00 04 B84 64 2D 0002€ CMPCS RUNSA_INPUT_DESC, @RUNSA_INPUT_DESC+4, #0, -: 0566 
emesis? PS 13 5039 BEQL n° aati : 

0000" CF 00 04 B64 64 2D 00058 CMPCS RUNSA_INPUT_DESC, @RUNSA_INPUT_DESC+4, #0, -: 0567 
0000" oF 0004 NOSAME, @NOSAME+4 F 
D6 13 00046 BEQL : 

44 Aa 9F 0004 PUSHAB RUNSQ_PRVADR + 0569 
54 DD 00048 PUSHL ; 
000000006 0 8 Fe 0040 CALLS 2, PRVSSETPRIV : 
. 0054 BLBS RO, 1$ ; 

0000° CF 9F 00057 PUSHAB PRIVILEGES : 0570 

4 0D 00058 PUSHL R4 : 
2 0D 0040 PUSHL #2 : 
00C0132A BF «DD 0005F PUSHL #1258781 ; 
000000006 00 4 Fe 0065 CALLS #4, LIBS$STOP : 

BO 11 0006C RB 1$ : 0566 

04 0006E 2$: RET : 057 


3; Routine Size: 111 bytes, Routine Base: S$CODE$ + 02C8 


: 583 0573 (1 


Run Detached Process =-- CLI Utility Procedure 18-50-1984 90:47:00 AX-11 Oi legare V4.0-74 Page 427 


a 


get_quotas -- Obtain the process quota values Sep-19 CLIUTL.SRCJRUNDET.832; 


3 5 1 ZSBTTL ‘get_quotas -- Obtain the process quota values’ 
: i : ROUTINE ost. Quotes : NOVALUE = : . - 
; 77 13 | 
: 8 } Functional Description: 
3 3) 8} } ; This routine is responsible for establishing the quota List. | 
: 59 ¢ ii NOTE: The ending address of the quota table computation in the INCR | 
> 394 1! loop below subtracts 2 from the pql$_length value. This is the 

; 595 5 1; correction value for the unused pql$_listend entry and the true 

: +] 2 5 : : ending address of the quota table. 

3 98 287 i Implicit Inputs: | 
; 600 389 i ; The quota list table. | 
3 60 391 i i Quota table format: 
: 604 338 ji 31 7 0 | 
3 605 594 1! Gececcce + | 
3 one 0396 : ‘ H name ! 

; 608 597 1: ! cmnd Line ent desc ! 

3 609 0598 aupesuphmmenannanasan 

3 611 9600 1/ Where the name field contains the PQL$_xxx value 

3 oie 01 1! and the cmnd Line ent desc contains the address 

: oiz Be8 : : of the quota name descriptor. 
; 615 9604 i Implicit Outputs: 

3 617 0608 1 ' The quota List is established. 

; 618 0607 1: 
; 619 0608 1 !-- 

: ost +44 BEGIN 

; 632 0611 2 LOCAL 

: o¢? pete value : volatile; ! Command Line entity's value. 

; $58 0614 INCR entry FROM run$a_quota tbl ! Search through the quota List looking for 

; 626 0615 run$a_quota_tbl + ((pql$_length - 2) * List_k_entry_size) ! quota info specified in the comman 
; é 7 8616 - BY List_K_entry_size 

; 6 5 be18 BEGIN ! If we find some, put it into the SCREPRC q 
3 6 19 BIND quete entry = .entry : $bblock; } coenee reference structure. 

3 e82 ? i egtisr ESENT (.quota_entry Clist_l_value)) } Wes his entity in the command line? 

; ! Yes... 

3 $65 4 BEGIN 

3; 634 4 & IF .quota_entry Clist_b_name] EQ pals cpulm ! Is this quota the CPU time Limit? 

: 635 4 4 THEN géet_cpulm (.quofa_entry tt st_T_value], value) ! Yes, special case for CPU time Limit... 

3 O36 5 4 ELSE get_value (.quota_entry Clist_l_value], value); ! Normal case, just get the value. 

; tH $ & ensert quote (.quota_entry Clist_b_nameJ, .value); ! Insert this quota into the quota List. 

; or, 3 ; END; —°! of DO statement. 

: 641 0 IF .run$a_quota NEQ 0 ! If any quotas have been processed, be sure 


get_quotas -- Obta 


000000006 


0000v 


0000v 


0000Vv 


0000v 


: 645 0634 1 


pe 3 Run Detached Process -- CLI Utility Procedure 
n the process quota values 


: ong st ; THEN insert_quota (pql$_listend, 0); 
; 644 § END; ! of ROUTINE get_quotas 


00000 GET_QUOTAS: 
WORD 


™ 
wn 


MO D> VIVOMMO—Mmoa 


oo 
SOOOCoooooooooooo: 


par par per pare 
BSNL SNS ooo 


MOMOOOWOW oo 


wm 
wn 


me 


SONOCOMNGOAAOF NOOFP NOHO PWOO 
AM 


NPN MOMUIPONIMPOPOM S MPM OMO—NUIT nh 
OMAN 9 -9FO NOOO O-"9090—o0mMmnoO— 
FWDOWI—O8 FOUDCO-DION—-" OWS 
SOOoooooooooooooooooosoco: 
SOoOoOoCoCOoOooOooooooooooooocoo 


SoooooocoecHo 
VINES 


o 
ad 


3; Routine Size: 86 bytes, Routine Base: S$CODE$ + 0337 


8 12:68:52 


Save R2,R3 
RUNSA_QUOTA_TBL, R 
RUNSA_QUOTA-TBL+65 
1 (ENTRY) 

#1, CLISPRESENT 
(ENTRY), #4 

2$ 


SP 
1 (ENTRY) 
Se GET_CPULM 


1 (ENTRY) 
#2, GET_VALUE 
VALUE 

(ENTRY), =(SP) 
#2, INSERT_QUOTA 
#5, EN 

ENTRY, R3 


RUNSA_QUOTA 
6$ 


(SP) 
#2, INSERT_QUOTA 


AX-11 Bliss-32 V4.0- 
CLIUTL.SRCJRUNDET.B 


! terminate the List. 


Run Detached Process -- CLI Utilit 


fe 
get_cpulm <= Special case the CPU 


4 
ep-1984 
t qu e 


p-1984 


a 


eroreey 


tine Limit qu | 9:88:50 


N1 
6-S 
4-5 
Ut 
E = 


psl : $bblock (4); 


entry : REF $bblock, 
value : REF $bblock; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
667 
2 
0670 
MAP 
7 
CLISGET_VALUE (.entr t_desc); 
IF (run$l_status = L 
06 THEN 
6 
9 


4 run$a_input_ 
és (Fun$a_input_desc, delta)) 


CVT_DTIME, 


meme meme 


BEGIN 
psl = EDIV (ZREF(-200000), delta (0), delta (0), delta (1]); 


IF .pst Cosl$v_vJ 
THEN SIGNAL_STOP (run$_illval, 1, run$a_input_desc); 


IF .delta C1) NEQ 0 
THEN delta (1) = 1; 


value = (.delta (0) * 2) + .delta (1); 


ELSE 
SIGNAL_STOP (run$_syntax, 1, run$a_input_desc, .run$l_status); 


Be Se Se Se Se Ge Se Be Ge Ge Ft Se Se Se Ge Ge FH Se Se Se Sees Ge Bee Se Ge Ss Se Ge Se Se Se Ge Oe Ge Se Se Se Se Se Se Se Se Ss Se Se SF Se Ge Se Se Se Se Ge Ss Ge 


AXx-11 Oi tes 
CLIUTL.SRC 


647 5 ZSBTTL_ ‘get_cpulm <= Special case the CPU time Limit quota’ 
648 6 § ROUTINE ost. tpuln (entry. value) : NOVALU 
649 6 lee 
oe 638 ! 
2 1 Ose Functional Description: 
£2¢ 1 i This routine handles the special case of the CPU time Limit quota, 
$28 bets : since a simple string to numeric conversion is not the case. 
656 0644 i We perform the CLI call back locally to get the cpu time Limit string, 
657 0645 ! then we call the time conversion routine felioved by reducing the tine 
658 O66 : value to a single longword. 
659 64 ! 
660 48 ! Inputs: 
661 Bos? ! 
6 650 : entry adr Address of the string descriptor for the 
$87 bee) cpu time Limit quota command qualifier. 
665 ee i Outputs: 
ees bees l d The add f th Ltant ti l 

! alue adr . 
rot bees ; valu e address o e resultan me value 
669 0657 ! Side Effects: 
670 0658 ! 

0659 : If any errors are encountered the will be signalled. 

Dies 

BEGIN 

BUILTIN 

EDIV; 
LOCAL 
delta : VECTOR (2, LONG], : 


-32 V4.0-74 


Pp 
RUNDET .B32; 290.48 


oOo 


Delta time quadword. 
Copy of the processor status longword. 


First we must get the time string and 
convert the .ASCID string to a delta time. 
If conversion was ok then condense the del | 
time to a single longword value. | 
Convert the delta time to a CPU time Limit 


Check for overflow. 
CPU time Limit value was too big. | 
! 


No overflow...should we round the 


! CPU time Limit? 


Set the CPU time Limit. 


; Routine Size: 


705 


112 bytes, 


0693 


1 END; 


1 


! of ROUTINE get_cpulm 


Run Detached Process -- CLI et Procedure 18-33 ,-1984 
get_cpulm -- Special case the CPU ti 


0692 


me Limit qu 14-Sep-19 


000¢ 00000 GET_CPULM: 


23 000000006 00 
2 0000" CF 
ap 
04 aS 
000000006 00 8 
4004 F 
000000006 00 9 
28 OA 

3 50 
6E FFFCF2CO ef 
ees: 

01 

000000006 8F 
3 03 

04 AE 

04 

06 =A 01 
5 43 

08 BC 04 BES 


35 


4 
O0OCO10FC F 
3 04 


Routine Base: 


1 
Bi 
3 i 
FB 00016 
BB 00010 
FB boo 1 
DO 00028 
5? 0002C 
B 0002F 
DC 00039 
E1 00038 
DD 0003F 
DD 00041 
DD 00043 
FB 00049 
D Babee 
13 O004F 
4 00051 
4 00055 
E Ronee 
04 0005E 
DD OO0SF 
DD 00062 
DD 00064 
DD 00066 
FB 0006C 
04 0006F 


SCODES + 038D 


18: 


2s: 


3$: 


Bc 99:88: 


90 AX-11 Bliss-32 V4.0-74 4¢ 
4 CLIUTL.SRCJRUNDET .B32; 


DESC, R2 


ofp. ; ISGET_ VALUE 
SP 


> 
i: <Tiascut DTIME 
RUNSL STATUS 


#-$00000, DELTA, DELTA, DELTA+4 
#i, PSL, 1$ 
R2 
#i 
#RUNS_ILLVAL 
at LTBSSTOP 
#1, DELTA+4 
DELTA, Ro 
@DELTA+4(RO], @VALUE 
RUNSL_STATUS 
+ tae 


al 
#12587260 
#4, LIBSSTOP 


Pa9e 43) 


Pee Se Se Se Se Be Se Se Se Be Se Se Ge Se Se Be Se Se Se Ge Se Se Ge Se Se Se Se Se Se 


0636 


0675 


0676 


0679 


0681, 
0682, 


0684 


0685 
0687 


0676 
0690 


0692 


a 


R h —— i = - 
tun Detached Process == CLI Utility Procedure 16-fep-1986 00:27:00 


94 


pserrt 
95 ROU TINE get_Value (entry, ret_val) 


' 
i Functional Description: 
This routine will obtain a 


i Inputs: 


i Side Effects: 


Errors encountered during conversion will be signalled. 


1% 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1! 
BEGIN 
LOCAL 
value_desc 
value; 


Ss ts! tb a tl 


DNAS WN "OOO NOUS WIN O 


: Sbblock Cdsc$c_s_bin], 


MAP 
entry : 
ret_val : 


REF Sbblock, 
REF $bblock; 


Sa i ie i i ee i i Me ey ei > > i i i 


e PS SS Sos eo Or hom ee nue o 


DOCCCOCOCOCOCOCOCOSOCOCOOOCOOoCoOOoOooOoOoO: 


SN NNN NS NNN 


*get_value -- Obtain and powers _o pee Line entity’ 


command Line entity and convert 
the text representation of the value into a numeric quantity. 


AX=11 Blisg-32 V4.0-74 4¢ 
CLIUTL.SRCJRUNDET 832; 


Page 31 
79° (14) 


longword to receive the converted value 


re 

7 

705 entry adr The address of the current command Line quota entity 
4 in the quota table. 

708 ! Outputs: 

709 

71 ret_val adr The address of a 

71 of the command line entity. 


Descriptor for conversion to a numeric val 
Resultant value from conversion. 


Length is left upto the conversion routine 


Type is unsigned longword. 
Address to store result of conversion. 


If the _—- is . peo in the command 

alue associated with it, 
gortere the conversion according to the in 
upplied by the descriptors. 


value_desc Cdsc$w_length) = } 
value_desc [dsc$b_ ~Stybe} = “cise _dtype_lu; : 
74 value_desc Cdsc$b_class] = dsc$k_class_s; : az eler. 
me 1 value_desc (dsc$a_pointer) = valie; : 
ms : If CLISGET_VALUE (.entry, run$a_input_desc) : 
74 i Line and has a 
748 5 If NOT (run$l_status i 
749 LTBSCVT Ox _DX (run$a_input_desc, value_desc)) |! 
7 THEN SIGNAL STOP” (run$_cvterr, 2, .éntry, run$a_input_ desc, ee Status) 
f : ELSE -ret_val = .value; 
7 $7 0 END; ! of ROUTINE get_value 
INF 0825 1:07 


0 L 
Referenced LOCAL symbol VALUE is probably not initialized 


0004 00000 GET_VALUE: 


. WORD 
52 0000" CF %E 00002 MOVAB 


RUNSAT INPUT _DESC, R2 : 


; 0695 


————————___—— 


T Run Detached Process -- CLI Utility Procedure ty 
Yoo 00 get_value -- Obtain and convert a ronnend line 1 


08 


000000006 


oa 


000000006 


04 ‘ 
08 00050 1$: 
54 


; Routine Size: 85 bytes, Routine Base: SCODES + O3FD 


: 754 0741 #1 


~Sep-1 


1986 99:68:56 


AX-11 Blisg-32 V4.0-74 
CLIUTL.SRCJRUNDET 83 32; 


icc 
a CLISGE T VALUE 
= 


SCVT_DX_Dx 
as: ’ 1B8$C VErat oe 


RO, 

R LS ratus 
Rynst 

ENTRY 

He 

#RUNS_CVTERR 
#5, LTessToP 
VALUE, @RET_VAL 


Page 32 


Sete Se Se Be Se Be Se Se Se Se Se Se Se Se Se Se Se Se He 


(14) 
aH 

735 
0736 


0737 


geet es ores oes = 3 pres fresene EE eee a 


T Run Detached Process -- CLI Utility Procedure 16-Sep-19 127: AX-11 Bliss-32 V4.0-74 Pp 3 
YOeeb00 insert_quota o incort &@ quota nto the quota | 1 3007138 99 :6a:s0 tet iute.sre RUNDET .832; 29° 433 
i 762 1 ZSBTTL ‘insert_quota -- Insert a quota into the quota list’ 

Ee 745 1 ROUTINE insert_Guota (mame, value) : NOVALUE = 

Te. : 744 1 See 

sg £ 745 1! 

: ree : } Functional Description: 

; 76 748 1! This routine is respsonsible for entering the specified 

: re? r : : quota List entry into the quota List. 

3; 765 751 1 | Inputs: 

-s re 1 | “9 

3 A Z } : name val The name of the quota (pql$_xxx) 

: 7? 755 1: value val The value of the quota. 

; 770 7 $ +} 

3 on Le : : Implicit Outputs: 

: 77 759 1: The quota entry has been added to the quota List and 

3; 7746 760 1! the List pointer has been updated to point to the next 

s 7s 761 1! entry slot. 

3; 77 762 1! 

3 77 765 1°! Side Effects: 

; 778 766 17! 

3; 779 765 1! If this is the first call, we will allocate a heap of 

; 780 786 1! memory to store the quota list in. This will be 

3 re Ls : ; deallocated at image rundown. 

: 78 763 1 i-- 

> 784 770 BEGIN 

; 785 771 

; 786 77 

3 Ath ae quota_ptr : REF S$bblock (4); 

: 789 775 2 IF .run$a_quota EQL 0 ' Has a quota List been allocated? 

3; 790 77 THEN ' No, allocate one... 

; 8) Aas 4 OF NOT (run$l_stat Galt Uibrary routine to get virtual | quate List 
: run atus = } 

3 98 779 4 LIBSGET_VA (ZREF(List_k_entry_size * pql$_length), ! is computed as the size of a quota List entr 
3 ee As! 4 sae run$a_quota)) : times the number of entries (including the termina 
; rs % SIGNAL_STOP (run$_insvirmem, 0, .run$l_status); | As usual. errors will be sent to the caller. 
; a , ¢ EM qQuota_ptr = .run$a_quota; ! Point to the first entry in the List. 

; 800 ? : 

; 801 7 quota_ptr Clist_b_name] = .name; ' Set the ta name (pql$_xxxx). 

3 ‘ 7 quota_ptr Clist_l_value]) = .value; ' Set the initial value. 

3 3 a quota_ptr = .quota_ptr + List_k_entry_size; ! Point to the next quota list entry. 

3 805 791 1 END;  ! of ROUTINE insert_quota 


-PSECT SOWNS,NOEXE ,2 


9012 BLKB 2 
01D4 QUOTA_PTR: 


vO4~600 


insert quota == Insert a quota into the quota | 14-Sep-1 
-BLKB 
-PSECT 
0004 00000 INSERT_QUOTA: 
2 0000" cF 9 ROVAB 
3 66 C 5 SUBL 
2 ° a TSTL 
F C BNEQ 
2 od PUSHL 
06 AE 48 F OA 1 MOVZBL 
046 =A F 1 PUS 
emated ' F 1 CALLS 
1 A D 1f MOVL 
1 E 3 BLBS 
10 A2 dD 8 PUSHL 
7E 04 CLAL 
OOCO12F4 ff DD 000 PUSHL 
000000006 F CALLS 
O1A4 § 62 D 1$ VL 
OAS «C2 COD 2s MOVL 
6 Ss AC MOVB 
on * OS 20 boos ADDL2 
be 00050 RET 


; Routine Size: 81 bytes, Routine Base: S$CODES + 0452 


; 806 0792 1 


Run Detached Process == CLI Utility Procedure 1b-Se-1984 90:42:90 


AX-11 Bliss-32 V4.0-74 
CLIUTL. SRC JRUNDET .B832; 


4 


SCODES ,NOWRT 2 


R 
SunSa*GuoTA, R2 


a4, §$ 
eect 
#75, 4(SP) 
#2, LIBSGET_vM 
. + RUNSL_STATUS 
RUNSL_STATUS 
(SP) 

#3, LIBSSTOP 
RUNSA_QUOTA 
QUOTA“PTR, RO 
NAME, ~(R 


VALUE, 1(RO) 
#5, QUOTA_PTR 


QUOTA_PTR 


Page 48) 


SEEECenEanE ERIE REET BREE 


T & -- -Sep- 127: - ° -O- 
voe-600 nun Detaened racers ca GLLavtititzstrocedure,, 1e-Sepct9es OR:2z:00  yaNcHt Ob egs82 v4. g:76 


007C 00000 GET_STSFLGS: 
SWORD Save R2,R3,R4,R5,R6 
é WAIT: Ré 


¢ ' CF OF ; MOVAB RESOURC : 

. F 9€E MOVAB RUNSL STSFLG. RS 

4 0000 9€ MOVAB CLISPRESENT, R4 

DD 0001 PUSHL 
eS 1 CALLS #1, CL ISPRESENT 
1 3 D 1 MCOML «=O, R 
65 01 F 1 INSV RI, #0, #1, RUNSL_STSFLG 
28 Ag oF 5 PUSHAB seavict FAIL 
64 01 FB CALLS #1, CLISPRESENT 
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3 1 ZSBTTL ‘get_stsflgs -- Set initial process state flags’ 

3 : ROUTINE get. Ststlos : NOVALUE’ = : < 

; 1 

: ; : Functional Description: 

; 1! This routine performs call backs to the CLI to obtain the initial 

: : : process state flag settings. 

; } ; Implicit Inputs: 

3 } : run$l_stsfig adr The address of the status flags vector. 

; ! ; Implicit Outputs: 

3 : ; run$l_stsfig adr The various state flags have been set. 

3 ! i Side Effects: 

: 1/ Several state floes have been defaulted to false. They are: 

3 : : BATCH, INTER, DISAWS and NETWRK. 

; 1 i-- 

; 83) BEGIN 

; 4 run$l_stsfig Breen pereeres = NOT (CLISPRESENT (resource _wait));! Resource wait mode. 

3 run$\_stsfig CorcS$v_ssfexcu] = CLISPRESENT (service_fail); ! System service failure exception mode. 

3 5 run$l_stsfig presv_pswapn] = NOT (CLISPRESENT (swapping); ! Process swap mode. 

3 run$l_stsfig Corc$v_noacnt) = NOT (CLISPRESENT (account ng)); ! Process accounting. 

3 run$i_stsfig Corc$v_batch] = false; ! Not a batch process. 

3 run$l_stsfig Corc$v_inter] = false; ! Not an interactive process. 

3 run$i_stsfig Corc$v_hiber] = CLISPRESENT (delay) OR ! Process hibernation state can be set 

; 0 CLISPRESENT (interval) OR ' b any combination of the /D 
; 1 CLISPRESENT (schedule); : ZANTE VAL or /SCHEDULE ¢ lifiers.. 
; § run$\_stsflg (prc$v_login]_= NOT (CLISPRESENT (authorize)); ! Process authorization if s LOGINOUT 
3 run$\_ststig Corc$v_netwrk) = false; ! Not a@ network connect object. 

3 4 run$\_stsfig Lorc$v_disaws] = false; ! Automatic working set adjustment state. 

; 845 run$i“stsflg Corc$v— mgdnp = CLISPRESENT (dump); i Dump requested 

3 run$l“stsfig Cprc$vdetach) = CLISPRESENT (detach); ! Detached process 

; 848 END; ! of ROUTINE get_stsflgs 
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$-Feo-19Be 09:27:00 


RO, #1, #1, RUNSL_STSFLG 


i Bn ESENT 


. A sent 
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RO, R 
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t 
chedule process -- Schedule the process for ex 14-Sep-19 CLIUTL. SRC JRUNDET.832; 
ZSBTTL ‘schedule_process -- Schedule the process for execution’ 
: ROUTINE schedule Brocess : NOVALUE = : 
1 
; : Functional Description: 
; 1! This routine is responsible for scheduling wake up request(s) for the 
§ ; } created process. 
4 Implicit Inputs: 
1: run$t_pid adr Address of the created process’ PID. 
1: te > pb adr Address of the wake up time quadword. 
: : : run$q_interval adr Address of the repeat time quadword. 
636 ; Implicit Outputs: 
£2¢ : The wake up request has been scheduled. 
0854 ! i Side Effects: 
Oe28 1 If any error is encounterd while gttengt ing to schedule the wake up 
Bae ; request(s), we will signal a warning diagnostic to the user and exit. 
He 1 i-- 
r¢4 BEGIN 
P ae8 IF NOT (run$l_status = SSCHDWK (PIDADR = run$l_pid, ! Schedule a wake up for the created process 
P 086 DAYTIM = runéa..deyt ia. ! At the specified time of day. 
sre: a REPTIM = run$q_interval)) ! Repeat the scheduled wake up at this inter 
+74) SIGNAL (run$_schdwk, 1, .runSl_pid, .run$l_status); ! Report any problems scheduling the wake up 
0868 END; ! of ROUTINE schedule_process 
-EXTRN SYSSSCHDWK 
0004 00000 SCHEDULE_PROCESS: 
52 0000" CF 9E ROAR. RUNSL PID, R2 aes 
is A2 9F PUSHAB RUNSG- INTERVAL > 0864 
1 Ad 9F Ss $Q_DAYT : 
43 D4 CLAL =(SP) : 
DD PUSHL ; ; 
000000006 F CALLS #4, SYSSSCHDWK : 
06 =A D MOVL RO, RUNSL STATUS ; 
1 3 BLBS RO, 1 : 
7E D MOva —-RUNSL_PID, ~(SP) > 0866 
dD PUSHL @# 3 
00000000G 8F DD PUSHL #RUNS_SCHDWK ; 
000000006 00 F i LS #4, LTBSSIGNAL : 
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PSECT SUMMARY 
Name Bytes 
SPLITS if: NOVEC,.NOWRT, ROD 
SOWNS 4 NOVEC, WRT, RD 
_LIBSKEYOS NOVEC,.NOWRT, RD 
LIBSSTATES NOVEC,.NOWRT, RD 
SCODES NOVEC,NOWRT, RD , 
- ABS. NOVEC ,NOWRT ,NORD 
Library Statistics 
File Total toy 
= $52 380UAgE: SYSL atti L18.L32;1 18619 69 
_5255$0UA28: (SYSLIBIT PAMAC.L32;1 42 19 


Information: 1 
Warnings: 
Errors: 
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Attributes 


»NOEXE ,NOSHR, 
oNOEXE ,NOSHR, 


Percent 


45 


1 “$2 5-19 
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Be 99:68:54 
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-EXTRN LIBSSIGNAL, LIBSSTOP 


Pages 


Mapped 


1000 
14 


Processing 
Time 


§:00:3 


7.832; 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RUNDET/OBJ=OBJ$:RUNDET MSRC$:RUNDET/UPDATE=(ENH$:RUNDET) 


a RE an + 1202 data bytes 
Slassed Time: 


Lexenes/CPU-Min: rock 
Memor oy us Used: 169 pages 
Compilation Complete 
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